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Added an SYE updat 

Added code to Sherrense the ‘mscp command reference’ 
numbers. If zero output the entry immediatel ly. 
- Fixed a bug in the output of the mscp entries when the 
error log mailbox is selected as for output. 


v03-005 SARO133 Sharon A.Reynclds, 9-Sep-1983 
Added fixes that were made to SYE (erllogsts) that 


1 C 
§ : Version: *v04-000' 
¢ Ceteee eee ee ee eRe RER HARRAH AHHH ARAAAAAAAAAKERHAEETAETAAH TTA ETeTeeeAeeRAReeEe 
Ce * 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
es ALL RIGHTS RESERVED. * 
® 
10 C* THIS SOFTWARE IS FVRMy SHED UNDER A LICENSE AND MAY BE ysep AND COPIED ® 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bic CONSE AND WITH THE * 
Bot8 C* INCLUSION OF THE ABOVE COPIRIGHT NOTICE. THIS sor tw ARE OR ANY OTHER * 
1 C* COPIES THEREOF MAY Th BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bat? es TRANSFERRED. * 
+ 
0017 C* THE ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
18 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9019 Ce CORPORATION. 5 
& ® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
00 § C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
00. Ce oa 
09 3 ARNEL RELA ES NO eS RON ee TEE EA TOL EATS SIA 
Cc 
0037 
0028 c Author Brian Porter Creation date 07-FEB-1982 
0080 
00 c++ 
ito c Functional description 
c 
0038 c This module provides dispatching for entries logged by erl$logstatus. 
c 
0035 c Modified by: 
0036 C 
0037 C v03-010 EAD184 Elliott A. Drayton 66-Jul-1984 
Bae 4 Add page break to begin intervening entry reports. 
c 
0040 C v03-009 SAR270 Sharon A. Reynolds 18-Jun-1984 
0041 ; - Added TMSCP support. 
C v03-008 $ arity Sharon a. Reynolds 26-Apr-1984 
: : - TU81 partial entry fix 
Boe C v03-007 SARO222 Sharon A. Rey nolds, 28-Mar-1984 
O94 : Changed the cali to “UCBSL _OWNUIC to ORBSL_OWNER. 
é v03-006 SARO195 Shores A. Reynolds, 20-Feb-1984 
C 
C 
C 
C 
C 
C 
C 
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VAX-11 FORTRAN ¥2.8-26 page 
DISKSVMSMASTER: CERF .SRCJERLLOGSTS.FOR; 


6 
16-Sep-1984 00:03:1 VAX-11 FORTRAN V3.4-56 ° 
g-se0-19 4 90: 93:1 DISKSVMSMASTER: CERF, SRCJERLLOGSTS. FORTY” 


2) 


if (options .eq. ‘B') then 
Call HEADER (lstlun) 


? 
| 
H C removed the mscp ‘first part’ info message and fixed : 
3 bug relating to summary reports. | : 
1 ¢ VO3-004 SARO074 sharon A. Reynolds, 20-Jun-1983 : 
§ C Changed the carriage control in the ‘format’ statements | > 
: for use with ERF. | ‘ 
5 C v03-003 SARO026 Sharon A. Reynolds, 16-May-1983 ° 
C Made SYECOM available and added code to check for eof : 
$ C fiag and gets ‘dudriver_mscp_dq’. Also changed name of | : 
C *reccnt’ input parameter due to conflict with SYECOM : 
; : reccnt. : 
71 4 v03-002 BP0001 Brian Porter, 21-0CT-1982 : 
por¢ c Added ra60. : 
C : 
74 c v03-001 BP0001 Brian Porter, 18-APR-1982 ; 
75 C Added brief. 3 
re c-- 3 
0078 
0080 pbreut tae ERLSLOGSTATUS_DISPATCHER (Lun,record_length,recorc_number, ; 
option 3 
1 é 
008 : 
0088 include areprmegner . tor /nolist' | ; 
Beg include ‘src$:embspdef.for /nolist’ : 
883 Include ‘src$:syecom.for /nolist’ 3 
0384 
$383 byte lun ; 
Bene integers4 record_length 3 
038 integers4 record_number | 3 
te 34 character*1 option : 
Bane byte mount_flag_and_label_array(16) 3 
0392 integer*4 volume_mount_flag ; 
0334 integere4 current_volume_label : 
95 equivalence (mount_flag_and_label_array(1),volume_mount_ flag) ; 
0 38 equivalence (mount_flag_and_label_array(5),current_volume_label? : 
Ee 
00 C Determine if the entire file has been processed, if so, call ; 
01 C a routine that will de-queve and output the remainder of the 3 
8 : disk and tape MSCP messages and return to the calling routine. 
Be If (EOF_FLAG) then : 
5 eh BISK_TAPE_DRIVERS_MSCP_DQ (Lstlun,options) ! DU and TU drivers 
eturn 
oF Endif | 
09 | 


as 
-—o 


a ie | 


ERLSLOGSTATUS_DISPATCHER 1b-sep-19 4 90:93:] 


AX-11 FORTRAN 
-Sep-1984 


Vv 3.4-56 Pa 
DISKSVMSMASTER: CERF. SRCJERLLOGSTS.FORST™ 


1 Call LOGGER (istlun,ERLSLOGSTATUS ENTRY‘) 
! Cat) DMeAde (Lstlun,'1/0° ,emb$b_sp_naming,emb$t_sp_name,emb$w_sp_unit) 
1 
} if (emb$b_sp_class .eq. 128) then 
; if (options .eq. ‘S') then 
SOY) PUORIVER OCP DISPATCHER (Lstlun,options,record_number) 
piso if ¢ 
: onbSb_sp_class -eq. 1 ! Disk messages 
1 emb$b_sp_class .£Q. 2 ! Tape messages 
1) then 


if (options .eq. ‘S') then 
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OONAVE WN (OOD NOULS WIN SQ OODNOUS UT 


C 
C Determine if output is directed to the report ere mailbox or if the 
C command reference number is equal to 0 (invalid cmd?). If so, output the 
3 entry immediately. 
f ¢ 
mailbox_channel .NE. 0 
3 1 emb$l_sp_cmdref .£0. 0 
0440 1) then 
4 Call INTERVENE_DECREMENT (Lstlun) 


44 Volume mount flag = -1 
5 Call GET CURRENT LABEL (3,emb$l_hd_sid,emb$b_sp_naming,emb$t_sp_name, 
6 1 emb$w_Sp_unit, ZREF (current_volume_label),*5) 


Volume_mount_flag = ZL0C(current_volume_label) 
Cont inue 


Call DISK TAPE_DRVR_MSCP_DISPATCHER i Let tun spt tone recerd_number, 
1 mount_flag_and_label_array,record_length,(1)) 


Else 
The command is valid and output is not going to the mailbox, save the 
entry so that it can be output together with the device hardware status 
packet that is logged seperately. 


Call DISK_TAPE_DRIVERS_MSCP_Q (record_length,record_number, 
emb$\_sp cmdref) 


SOOO 


if 


1 
End 
Endif 
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C 
C Unknown device type. call a routine that will call applicable 
C routines that will decode/output the entry. As new device types 


ERLSLOGSTATUS_DISPATCHER 16 -$00-1984 09:03 VAX-11 FORTRAN ATR Page 
-Sep-1984 DISKSVMSMASTER: CERF. “Ree serciocsts. FOR; 


9 C are defined the IF-THEN-ELSE should be expanded at this point to 
i ‘ support them. 


7 else 

7 Call ERLLOGSTS (lstlun) 
74 endif 

75 

7 return 

7 en 


Name Bytes Attributes 
0 $COD 248 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL QO PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1032 


ENTRY POINTS 
Address Type Name 
0-00000900 ERLSLOGSTATUS_DISPATCHER 


VARIABLES 
Address Type Name Address Type Name 


L*1 CP_11750 

tLe? ¢P°11722 

1*4 CURRENT VOLUME _LABEL 
Le] EMBSB_SP_CLASS™ 


Le] EMBSB~SP~TYPE 

1*4 EMBSL-SP~BCNT 

1*4 EMBSL—SP~CMDREF 

1*4 EMBS$L~SP~10SB 

1*4 EMBSL~SP~OPCNT 

1*4 EMBSL~SP~ROPID 

1*2 EMBSW"HD"ENTRY 

[eg ENBS$~SP BOF E | 
Ie? EMB$W~SP~FUNC | 
1*2 EMBSW~SP"UNIT | 
Lel EOF FCAG 
Lei LINES | 
Let LUN | 
CHAR OPTION | 
Le4 PRINTER 


4 
I*4 RECORD_LENGTH 


<" 
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ERLSLOGSTATUS_DISPATCHER 1B-Sep-1984 90: 93: 18 VAX=11 


RAN Y3.6-56 Pace S| 
~Sep-1 29° 


FORT 
DISKSVMSMASTER: CERF .SRCJERLLOGSTS.FOR; 


FUNCTIONS AND SUBROUTINES REFERENCED 


| 
23 1%4 RECORD size 4- 19 L*l VALID_CLASS | 
it ts Y VALID Si VPE 3 08 en VOLUME NOUNT FLAG | 
18 tel VOLUME OUTPUT . | 
ARRAYS | 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB bt pat | 
“POORER 1*4 EMBSQ_HD_TIME 
- L*1 MOUNT-FLAG_AND_LABEL_ARRAY 
LABELS 
Address Label 
0-00000087 5 
Type Name Type Name Type Name 
DHEAD2 
DISK TAPE_DRVR_MSCP_DISPATCHER ERLLOGSTS™ T_TURRERT_ 
R INT ERVENE_DECREMENT COG GtER 


PUDRIVER -MSCP_DISPATCHER 


DISK _TAPE_DRIVERS_MSCP_DQ o7sk TAPE ahh tt -MSCP_Q 
! 
| 
| 


mM 6 
1 - - 4 : : = 4° 
B8ep= 1986 19:56:17 — DISKSUMGRASTER:FERF-SAcJERLLOGSTS.FoRST®  ° 


Wr 


Subroutine ERLLOGSTS (iun) 


include ‘src$:msghdr. for gy 4 9 
include ‘src$:embspdef.for /nolist' 
Include ‘src$:syecom.for /nolist' 


uw 


—_ 


Call MSLGSSL_CMD_REF (istlun,emb$l_sp_cmdref) 
Call ORB$L_OQNER™ (I stlun.emb$l_sp_ownuic) 


$8 byte lun 
10 integer*4 compress4 
2 ¢ 
18 3 Decode/output the entry header. 
15 Call FRCTOF (lstlun) 
18 Call HEADER (Lstlun) 
1 Call LOGGER (istlun, *ERLSLOGSTATUS ENTRY‘) 
\3 Call DHEAD2 (istlun,'1/0',emb$b_sp_naming,emb$t_sp_name,emb$w_sp_unit) 

Be 
§ Entry ERLLOGSTS2 (Lun) 
4 C 

325 C Call the applicable routines to decode/output the software status 
$ ; entry for an mscp disk/tape device. 

328 Call LINCHK (Lstlun,1) 

; 9 write(lstlun,10) 

10 format(’ ',:5 


UCBSL-CHAR (istlun,emb$l_Sp_Cchar) 
UCBSL_OPCNT (Lstlun,emb$l_sp_opcnt) 


l 

l 

lL UCBSW_ERRCNT (istlun,emb$w_sp_errcnt) 
lL UCBSW_STS (lstlun,emb$w_sp_sts) 
l 
t 


eee ete WA. AAA AAA 
abet wey 3 


uw 
oo 


LINCHK (Lstlun,1) 
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31 e(lstlun,10) 
38 Call CDRPSL_MEDIA <‘lstlun,emb$l_sp_media) 
345 if (emb$b Sp class .eq. 1) then ! Disk qio func decode 
sf Call DUDRIVER_QIO (istlun,emb$w_sp_ func) 
8 Else if (emb$b $p-c lass -EQ. 2) then ! Tape qio func decode 
$3 Call TUDRIVER_GIO™ (Lstlun,emb$w_sp_ func) 
; 
4 


Sooooc“ecoo 


wis 


vw 


else 
<Ot CORPEU FUNC (Lstlun,emb$w_sp_func,'Q10 FUNCTION’) 
en 
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ERLLOGSTS ig-se Sep-1984 VAX=11 FORTRAN V3. 4-56 Page 8 
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4-00000018 L*1 VOLUME_oUTPUT 


ARRAYS 
Address Type Name Bytes Dimensions 
320000008 24 ERBSO_HD_TIME ag Fs sete 
LABELS 
Address Label 
1-00000029 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 

CDRPSL Stitt CDRPSL_MEDIA CORPSL_PID 
CDRP$Q_ 10S CDRPS$W" BOF F CORP SY. FUNC 
OH i Ape” SUDRIVER 910 FRCTOF 

HEAD LINCHK LOGGER 
RSLCSEL CMD _REF ORBSL OWNER TUDRIVER_QIO 

CRAR UCBSL_OPCNT UCBSW_ERRCNT 

et éTs 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:ERLLOGSTS/OBJ=OBJ$:ERLLOGSTS MSRC$:ERLLOGSTS 
antes Sea NOUNDERF LOW) 


COMPILATION STATISTICS 


Run Time: 4.44 seconds 
Elapsed Time: 12.43 seconds 
Page Faults: 16? 

Dynamic Memory: 175 pages 


cc SE ee “#8 i nn ——E 


AH-BT13A-SE DI 
VAX/VMS V4.0 CO 


NT CORPORATION 
D PROPRIETARY 


0149 


